home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / SHARED.DIR / 01981_Script_aHozSlider < prev    next >
Text File  |  1995-09-13  |  1KB  |  59 lines
  1. property pCast, pSprite, pLeftLimit,pRightLimit , pFunction , pDelta , pRange, pCursor
  2.  
  3. on birth me, theCast, theSprite, leftLim, rightLim, theFunction, theDelta, theCursor
  4.   set pFunction = theFunction
  5.   set pLeftLimit = leftLim
  6.   set pRightLimit = rightLim
  7.   set pCast = theCast
  8.   set pSprite = theSprite
  9.   puppetSprite pSprite, TRUE
  10.   set pDelta = theDelta
  11.   set pRange =  (pRightLimit - pLeftLimit)
  12.   set pCursor = theCursor
  13.   return me
  14. end
  15.  
  16. on SliderBar me
  17.   repeat while the mouseDown 
  18.     do pCursor
  19.     set newH = the mouseH
  20.     if (newH  < pLeftLimit)  then
  21.       set the locH of sprite pSprite = pLeftLimit
  22.     else
  23.       if  (newH   > pRightLimit) then
  24.         set the locH of sprite pSprite = pRightLimit
  25.       else
  26.         set the locH of sprite pSprite = newH
  27.       end if
  28.     end if
  29.     do pFunction
  30.     upDateStage
  31.   end repeat
  32. end
  33.  
  34.  
  35. on getPercentH me
  36.   set pc = 100 - 100 * (pRightLimit - the locH of sprite pSprite)/(pRange)
  37.   return pc
  38. end
  39.  
  40. on stepRight me
  41.   set newH = the locH of sprite pSprite + pDelta
  42.   if (newH < pRightLimit) then
  43.     set the locH of sprite pSprite = newH 
  44.     upDateStage 
  45.   end if
  46. end
  47.  
  48. on stepLeft me
  49.   set newH = the locH of sprite pSprite - pDelta
  50.   if (newH > pLeftLimit) then
  51.     set the locH of sprite pSprite = newH
  52.     upDateStage  
  53.   end if
  54. end
  55.  
  56. on hidecontrol me
  57.   puppetSprite pSprite, false
  58. end
  59.